Workplace Effectiveness: Critical Thinking Skills/Workplace Effectiveness: Critical Thinking Skills.iso/pc/Files/Sleuth.dxr/00003_Truth sleuth code.ls

Text File | 1998-09-14 | 1.5 KB | 92 lines

global gMasterData, gSection, sleuthData

on goIntro
  go(label("intro"))
  goNarrator(gMasterData, "76")
  set gSection to #intro
  if voidp(sleuthData) then
    set sleuthData to [#london1: [], #london2: EMPTY, #mexico1: [], #mexico2: EMPTY, #earth1: [], #earth2: EMPTY]
  end if
end

on golondon1
  set gSection to #london1
  go("london1")
  goNarrator(gMasterData, "78")
end

on exitTruthSentClick
  setPuppetState([5, 14], #c, 0)
end

on golondon2
  set gSection to #london2
  go("london2")
  goNarrator(gMasterData, "79")
end

on golondon3
  go("london3")
  goNarrator(gMasterData, "80")
  set gSection to #london3
end

on gomexico1
  set gSection to #mexico1
  go("mexico1")
  goNarrator(gMasterData, "78")
end

on gomexico2
  set gSection to #mexico2
  go("mexico2")
  goNarrator(gMasterData, "79")
end

on gomexico3
  go("mexico3")
  goNarrator(gMasterData, "81")
  set gSection to #mexico3
end

on goearth1
  set gSection to #earth1
  go("earth1")
  goNarrator(gMasterData, "78")
end

on goearth2
  set gSection to #earth2
  go("earth2")
  goNarrator(gMasterData, "79")
end

on goearth3
  go("earth3")
  goNarrator(gMasterData, "82")
  set gSection to #earth3
end

on clickDone
  if not iAmActivated(gMasterData) then
    activate(gMasterData)
  end if
  case gSection of
    #london1:
      golondon2()
    #london2:
      exitTruthSentClick()
      golondon3()
    #mexico1:
      gomexico2()
    #mexico2:
      exitTruthSentClick()
      gomexico3()
    #earth1:
      goearth2()
    #earth2:
      exitTruthSentClick()
      goearth3()
  end case
end